VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsPhongTrao"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private m_sMaSV As String
Private m_sMaPT As String

Public Property Get masv() As String
    masv = m_sMaSV
End Property

Public Property Let masv(ByVal sMaSV As String)
    m_sMaSV = sMaSV
End Property

Public Property Get mapt() As String
    mapt = m_sMaPT
End Property

Public Property Let mapt(ByVal sMaPT As String)
    m_sMaPT = sMaPT
End Property

'---------------------------------------------------------------------------------------
' Procedure : SelectAll
' Date      : 27/10/2011
' Purpose   : Load danh sach tat ca record cua table co trong file du lieu
'---------------------------------------------------------------------------------------
Public Function SelectAll() As ADODB.Recordset
   On Error GoTo SelectAll_Error

    Call OpenConnection
    ' Create a Recordset by executing an SQL statement.
    Set SelectAll = g_ObjADOConn.Execute("SELECT sv.MaSV, HoDem, TenSV, pt.MaPT, TenPT, DiemPT FROM HSSV sv, DiemPhongTrao dpt, PhongTrao pt WHERE sv.MaSV = pt.MaSV AND pt.MaPT = dpt.MaPT GROUP BY sv.MaSV, HoDem, TenSV, pt.MaPT, TenPT, DiemPT")

   On Error GoTo 0
   Exit Function
SelectAll_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure SelectAll of Class Module clsPhongTrao"
End Function

'---------------------------------------------------------------------------------------
' Procedure : SelectByID
' Date      : 27/10/2011
' Purpose   : Lay record cua table ung voi ma DanhMucMonHoc truyen vao
'---------------------------------------------------------------------------------------
Public Function SelectByID(ByVal masv As String, ByVal mapt As String) As ADODB.Recordset
   On Error GoTo SelectByID_Error

    Call OpenConnection
    ' Create a Recordset by executing an SQL statement.
    Set SelectByID = g_ObjADOConn.Execute("SELECT sv.*, pt.MaPT, TenPT, DiemPT FROM HSSV sv, DiemPhongTrao dpt, PhongTrao pt WHERE sv.MaSV = pt.MaSV AND pt.MaPT = dpt.MaPT AND pt.MaSV = '" & masv & "' AND pt.MaPT = '" & mapt & "'")
    
   On Error GoTo 0
   Exit Function
SelectByID_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure SelectByID of Class Module clsPhongTrao"
End Function

'---------------------------------------------------------------------------------------
' Procedure : Insert
' Date      : 27/10/2011
' Purpose   : Them 1 record moi vao table trong file du lieu
'---------------------------------------------------------------------------------------
Public Function Insert(ByVal ObjPhongTrao As clsPhongTrao) As Boolean
    
   On Error GoTo Insert_Error

    Call OpenConnection
    g_ObjADOConn.Execute ("INSERT INTO PhongTrao(MaSV, MaPT) " & _
                          "VALUES('" & ObjPhongTrao.masv & "', '" & ObjPhongTrao.mapt & "')")
    Call CloseConnection
    Insert = True
    
   On Error GoTo 0
   Exit Function
Insert_Error:
    Insert = False
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Insert of Class Module clsPhongTrao"
End Function

'---------------------------------------------------------------------------------------
' Procedure : Delete
' Date      : 27/10/2011
' Purpose   : Xoa 1 record cua table trong file du lieu
'---------------------------------------------------------------------------------------
Public Function Delete(ByVal masv As String, ByVal mapt As String) As Boolean
   On Error GoTo Delete_Error

    Call OpenConnection
    g_ObjADOConn.Execute ("DELETE FROM PhongTrao WHERE MaSV='" & masv & "' AND MaPT='" & mapt & "'")
    Call CloseConnection
    Delete = True
    
   On Error GoTo 0
   Exit Function
Delete_Error:
    Delete = False
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Delete of Class Module clsPhongTrao"
End Function




